unit uFrmPesquisaPadrao;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, sqldb, FileUtil, Forms, Controls, Graphics, Dialogs,
  ExtCtrls, DBGrids, StdCtrls, Buttons, EditBtn, DbCtrls, uClassePesquisaAux;

type

  { TFrmPesquisaPadrao }

  TFrmPesquisaPadrao = class(TForm)
    BtnPesquisar: TBitBtn;
    BtnImprimir: TBitBtn;
    CBCampo: TComboBox;
    CBCondicao: TComboBox;
    DBGrid1: TDBGrid;
    DBLookupComboBox1: TDBLookupComboBox;
    edtConteudo1: TEdit;
    LBLCampo: TLabel;
    LBLCondicao: TLabel;
    PNLPesquisa: TPanel;
    SQLQuery1: TSQLQuery;
    procedure BtnPesquisarClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
    pesquisa : TCamposPesquisa;
  end;

var
  FrmPesquisaPadrao: TFrmPesquisaPadrao;

implementation

{$R *.lfm}

{ TFrmPesquisaPadrao }

procedure TFrmPesquisaPadrao.BtnPesquisarClick(Sender: TObject);
begin
  if not Assigned(pesquisa) then
    pesquisa := TCamposPesquisa.Create;
  pesquisa.CarregarCampos(SQLQuery1,DBLookupComboBox1);
end;

end.

